home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / SERVERS.FRM < prev    next >
Text File  |  1993-12-10  |  13KB  |  610 lines
  1. Version 1.00
  2. BEGIN Form Servers
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "Attached Servers"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(7)
  10.     Height       = Char(19)
  11.     Left         = Char(9)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(2)
  17.     Visible      = -1
  18.     Width        = Char(63)
  19.     WindowState  = 0
  20.     BEGIN Label Label1
  21.         Alignment    = 0
  22.         AutoSize     = 0
  23.         BackColor    = QBColor(1)
  24.         BorderStyle  = 0
  25.         Caption      = "Server Number"
  26.         DragMode     = 0
  27.         Enabled      = -1
  28.         ForeColor    = QBColor(15)
  29.         Height       = Char(1)
  30.         Left         = Char(1)
  31.         MousePointer = 0
  32.         TabIndex     = 1
  33.         Tag          = ""
  34.         Top          = Char(1)
  35.         Visible      = -1
  36.         Width        = Char(14)
  37.     END
  38.     BEGIN CommandButton Command1
  39.         BackColor    = QBColor(7)
  40.         Cancel       = 0
  41.         Caption      = "OK"
  42.         Default      = 0
  43.         DragMode     = 0
  44.         Enabled      = -1
  45.         Height       = Char(3)
  46.         Left         = Char(24)
  47.         MousePointer = 0
  48.         TabIndex     = 0
  49.         TabStop      = -1
  50.         Tag          = ""
  51.         Top          = Char(13)
  52.         Visible      = -1
  53.         Width        = Char(15)
  54.     END
  55.     BEGIN Label Label2
  56.         Alignment    = 0
  57.         AutoSize     = 0
  58.         BackColor    = QBColor(1)
  59.         BorderStyle  = 0
  60.         Caption      = "Connection ID "
  61.         DragMode     = 0
  62.         Enabled      = -1
  63.         ForeColor    = QBColor(15)
  64.         Height       = Char(1)
  65.         Left         = Char(19)
  66.         MousePointer = 0
  67.         TabIndex     = 2
  68.         Tag          = ""
  69.         Top          = Char(1)
  70.         Visible      = -1
  71.         Width        = Char(13)
  72.     END
  73.     BEGIN Label Label3
  74.         Alignment    = 0
  75.         AutoSize     = 0
  76.         BackColor    = QBColor(1)
  77.         BorderStyle  = 0
  78.         Caption      = "Server Name"
  79.         DragMode     = 0
  80.         Enabled      = -1
  81.         ForeColor    = QBColor(15)
  82.         Height       = Char(1)
  83.         Left         = Char(37)
  84.         MousePointer = 0
  85.         TabIndex     = 3
  86.         Tag          = ""
  87.         Top          = Char(1)
  88.         Visible      = -1
  89.         Width        = Char(13)
  90.     END
  91.     BEGIN Label s1
  92.         Alignment    = 0
  93.         AutoSize     = 0
  94.         BackColor    = QBColor(1)
  95.         BorderStyle  = 0
  96.         Caption      = ""
  97.         DragMode     = 0
  98.         Enabled      = -1
  99.         ForeColor    = QBColor(7)
  100.         Height       = Char(1)
  101.         Left         = Char(4)
  102.         MousePointer = 0
  103.         TabIndex     = 4
  104.         Tag          = ""
  105.         Top          = Char(3)
  106.         Visible      = -1
  107.         Width        = Char(5)
  108.     END
  109.     BEGIN Label s2
  110.         Alignment    = 0
  111.         AutoSize     = 0
  112.         BackColor    = QBColor(1)
  113.         BorderStyle  = 0
  114.         Caption      = ""
  115.         DragMode     = 0
  116.         Enabled      = -1
  117.         ForeColor    = QBColor(7)
  118.         Height       = Char(1)
  119.         Left         = Char(4)
  120.         MousePointer = 0
  121.         TabIndex     = 5
  122.         Tag          = ""
  123.         Top          = Char(4)
  124.         Visible      = -1
  125.         Width        = Char(5)
  126.     END
  127.     BEGIN Label s3
  128.         Alignment    = 0
  129.         AutoSize     = 0
  130.         BackColor    = QBColor(1)
  131.         BorderStyle  = 0
  132.         Caption      = ""
  133.         DragMode     = 0
  134.         Enabled      = -1
  135.         ForeColor    = QBColor(7)
  136.         Height       = Char(1)
  137.         Left         = Char(4)
  138.         MousePointer = 0
  139.         TabIndex     = 6
  140.         Tag          = ""
  141.         Top          = Char(5)
  142.         Visible      = -1
  143.         Width        = Char(5)
  144.     END
  145.     BEGIN Label s4
  146.         Alignment    = 0
  147.         AutoSize     = 0
  148.         BackColor    = QBColor(1)
  149.         BorderStyle  = 0
  150.         Caption      = ""
  151.         DragMode     = 0
  152.         Enabled      = -1
  153.         ForeColor    = QBColor(7)
  154.         Height       = Char(1)
  155.         Left         = Char(4)
  156.         MousePointer = 0
  157.         TabIndex     = 7
  158.         Tag          = ""
  159.         Top          = Char(6)
  160.         Visible      = -1
  161.         Width        = Char(5)
  162.     END
  163.     BEGIN Label s5
  164.         Alignment    = 0
  165.         AutoSize     = 0
  166.         BackColor    = QBColor(1)
  167.         BorderStyle  = 0
  168.         Caption      = ""
  169.         DragMode     = 0
  170.         Enabled      = -1
  171.         ForeColor    = QBColor(7)
  172.         Height       = Char(1)
  173.         Left         = Char(4)
  174.         MousePointer = 0
  175.         TabIndex     = 8
  176.         Tag          = ""
  177.         Top          = Char(7)
  178.         Visible      = -1
  179.         Width        = Char(5)
  180.     END
  181.     BEGIN Label s6
  182.         Alignment    = 0
  183.         AutoSize     = 0
  184.         BackColor    = QBColor(1)
  185.         BorderStyle  = 0
  186.         Caption      = ""
  187.         DragMode     = 0
  188.         Enabled      = -1
  189.         ForeColor    = QBColor(7)
  190.         Height       = Char(1)
  191.         Left         = Char(4)
  192.         MousePointer = 0
  193.         TabIndex     = 9
  194.         Tag          = ""
  195.         Top          = Char(8)
  196.         Visible      = -1
  197.         Width        = Char(5)
  198.     END
  199.     BEGIN Label s7
  200.         Alignment    = 0
  201.         AutoSize     = 0
  202.         BackColor    = QBColor(1)
  203.         BorderStyle  = 0
  204.         Caption      = ""
  205.         DragMode     = 0
  206.         Enabled      = -1
  207.         ForeColor    = QBColor(7)
  208.         Height       = Char(1)
  209.         Left         = Char(4)
  210.         MousePointer = 0
  211.         TabIndex     = 10
  212.         Tag          = ""
  213.         Top          = Char(9)
  214.         Visible      = -1
  215.         Width        = Char(5)
  216.     END
  217.     BEGIN Label s8
  218.         Alignment    = 0
  219.         AutoSize     = 0
  220.         BackColor    = QBColor(1)
  221.         BorderStyle  = 0
  222.         Caption      = ""
  223.         DragMode     = 0
  224.         Enabled      = -1
  225.         ForeColor    = QBColor(7)
  226.         Height       = Char(1)
  227.         Left         = Char(4)
  228.         MousePointer = 0
  229.         TabIndex     = 11
  230.         Tag          = ""
  231.         Top          = Char(10)
  232.         Visible      = -1
  233.         Width        = Char(5)
  234.     END
  235.     BEGIN Label u1
  236.         Alignment    = 0
  237.         AutoSize     = 0
  238.         BackColor    = QBColor(1)
  239.         BorderStyle  = 0
  240.         Caption      = ""
  241.         DragMode     = 0
  242.         Enabled      = -1
  243.         ForeColor    = QBColor(7)
  244.         Height       = Char(1)
  245.         Left         = Char(23)
  246.         MousePointer = 0
  247.         TabIndex     = 12
  248.         Tag          = ""
  249.         Top          = Char(3)
  250.         Visible      = -1
  251.         Width        = Char(5)
  252.     END
  253.     BEGIN Label u2
  254.         Alignment    = 0
  255.         AutoSize     = 0
  256.         BackColor    = QBColor(1)
  257.         BorderStyle  = 0
  258.         Caption      = ""
  259.         DragMode     = 0
  260.         Enabled      = -1
  261.         ForeColor    = QBColor(7)
  262.         Height       = Char(1)
  263.         Left         = Char(23)
  264.         MousePointer = 0
  265.         TabIndex     = 13
  266.         Tag          = ""
  267.         Top          = Char(4)
  268.         Visible      = -1
  269.         Width        = Char(5)
  270.     END
  271.     BEGIN Label u3
  272.         Alignment    = 0
  273.         AutoSize     = 0
  274.         BackColor    = QBColor(1)
  275.         BorderStyle  = 0
  276.         Caption      = ""
  277.         DragMode     = 0
  278.         Enabled      = -1
  279.         ForeColor    = QBColor(7)
  280.         Height       = Char(1)
  281.         Left         = Char(23)
  282.         MousePointer = 0
  283.         TabIndex     = 14
  284.         Tag          = ""
  285.         Top          = Char(5)
  286.         Visible      = -1
  287.         Width        = Char(5)
  288.     END
  289.     BEGIN Label u4
  290.         Alignment    = 0
  291.         AutoSize     = 0
  292.         BackColor    = QBColor(1)
  293.         BorderStyle  = 0
  294.         Caption      = ""
  295.         DragMode     = 0
  296.         Enabled      = -1
  297.         ForeColor    = QBColor(7)
  298.         Height       = Char(1)
  299.         Left         = Char(23)
  300.         MousePointer = 0
  301.         TabIndex     = 15
  302.         Tag          = ""
  303.         Top          = Char(6)
  304.         Visible      = -1
  305.         Width        = Char(5)
  306.     END
  307.     BEGIN Label u5
  308.         Alignment    = 0
  309.         AutoSize     = 0
  310.         BackColor    = QBColor(1)
  311.         BorderStyle  = 0
  312.         Caption      = ""
  313.         DragMode     = 0
  314.         Enabled      = -1
  315.         ForeColor    = QBColor(7)
  316.         Height       = Char(1)
  317.         Left         = Char(23)
  318.         MousePointer = 0
  319.         TabIndex     = 16
  320.         Tag          = ""
  321.         Top          = Char(7)
  322.         Visible      = -1
  323.         Width        = Char(5)
  324.     END
  325.     BEGIN Label u6
  326.         Alignment    = 0
  327.         AutoSize     = 0
  328.         BackColor    = QBColor(1)
  329.         BorderStyle  = 0
  330.         Caption      = ""
  331.         DragMode     = 0
  332.         Enabled      = -1
  333.         ForeColor    = QBColor(7)
  334.         Height       = Char(1)
  335.         Left         = Char(23)
  336.         MousePointer = 0
  337.         TabIndex     = 17
  338.         Tag          = ""
  339.         Top          = Char(8)
  340.         Visible      = -1
  341.         Width        = Char(5)
  342.     END
  343.     BEGIN Label u7
  344.         Alignment    = 0
  345.         AutoSize     = 0
  346.         BackColor    = QBColor(1)
  347.         BorderStyle  = 0
  348.         Caption      = ""
  349.         DragMode     = 0
  350.         Enabled      = -1
  351.         ForeColor    = QBColor(7)
  352.         Height       = Char(1)
  353.         Left         = Char(23)
  354.         MousePointer = 0
  355.         TabIndex     = 18
  356.         Tag          = ""
  357.         Top          = Char(9)
  358.         Visible      = -1
  359.         Width        = Char(5)
  360.     END
  361.     BEGIN Label u8
  362.         Alignment    = 0
  363.         AutoSize     = 0
  364.         BackColor    = QBColor(1)
  365.         BorderStyle  = 0
  366.         Caption      = ""
  367.         DragMode     = 0
  368.         Enabled      = -1
  369.         ForeColor    = QBColor(7)
  370.         Height       = Char(1)
  371.         Left         = Char(23)
  372.         MousePointer = 0
  373.         TabIndex     = 19
  374.         Tag          = ""
  375.         Top          = Char(10)
  376.         Visible      = -1
  377.         Width        = Char(5)
  378.     END
  379.     BEGIN Label Serv1
  380.         Alignment    = 0
  381.         AutoSize     = 0
  382.         BackColor    = QBColor(1)
  383.         BorderStyle  = 0
  384.         Caption      = ""
  385.         DragMode     = 0
  386.         Enabled      = -1
  387.         ForeColor    = QBColor(7)
  388.         Height       = Char(1)
  389.         Left         = Char(38)
  390.         MousePointer = 0
  391.         TabIndex     = 20
  392.         Tag          = ""
  393.         Top          = Char(3)
  394.         Visible      = -1
  395.         Width        = Char(22)
  396.     END
  397.     BEGIN Label Serv2
  398.         Alignment    = 0
  399.         AutoSize     = 0
  400.         BackColor    = QBColor(1)
  401.         BorderStyle  = 0
  402.         Caption      = ""
  403.         DragMode     = 0
  404.         Enabled      = -1
  405.         ForeColor    = QBColor(7)
  406.         Height       = Char(1)
  407.         Left         = Char(38)
  408.         MousePointer = 0
  409.         TabIndex     = 21
  410.         Tag          = ""
  411.         Top          = Char(4)
  412.         Visible      = -1
  413.         Width        = Char(22)
  414.     END
  415.     BEGIN Label Serv3
  416.         Alignment    = 0
  417.         AutoSize     = 0
  418.         BackColor    = QBColor(1)
  419.         BorderStyle  = 0
  420.         Caption      = ""
  421.         DragMode     = 0
  422.         Enabled      = -1
  423.         ForeColor    = QBColor(7)
  424.         Height       = Char(1)
  425.         Left         = Char(38)
  426.         MousePointer = 0
  427.         TabIndex     = 22
  428.         Tag          = ""
  429.         Top          = Char(5)
  430.         Visible      = -1
  431.         Width        = Char(22)
  432.     END
  433.     BEGIN Label Serv4
  434.         Alignment    = 0
  435.         AutoSize     = 0
  436.         BackColor    = QBColor(1)
  437.         BorderStyle  = 0
  438.         Caption      = ""
  439.         DragMode     = 0
  440.         Enabled      = -1
  441.         ForeColor    = QBColor(7)
  442.         Height       = Char(1)
  443.         Left         = Char(38)
  444.         MousePointer = 0
  445.         TabIndex     = 26
  446.         Tag          = ""
  447.         Top          = Char(6)
  448.         Visible      = -1
  449.         Width        = Char(22)
  450.     END
  451.     BEGIN Label Serv5
  452.         Alignment    = 0
  453.         AutoSize     = 0
  454.         BackColor    = QBColor(1)
  455.         BorderStyle  = 0
  456.         Caption      = ""
  457.         DragMode     = 0
  458.         Enabled      = -1
  459.         ForeColor    = QBColor(7)
  460.         Height       = Char(1)
  461.         Left         = Char(38)
  462.         MousePointer = 0
  463.         TabIndex     = 27
  464.         Tag          = ""
  465.         Top          = Char(7)
  466.         Visible      = -1
  467.         Width        = Char(22)
  468.     END
  469.     BEGIN Label Serv6
  470.         Alignment    = 0
  471.         AutoSize     = 0
  472.         BackColor    = QBColor(1)
  473.         BorderStyle  = 0
  474.         Caption      = ""
  475.         DragMode     = 0
  476.         Enabled      = -1
  477.         ForeColor    = QBColor(7)
  478.         Height       = Char(1)
  479.         Left         = Char(38)
  480.         MousePointer = 0
  481.         TabIndex     = 23
  482.         Tag          = ""
  483.         Top          = Char(8)
  484.         Visible      = -1
  485.         Width        = Char(22)
  486.     END
  487.     BEGIN Label Serv7
  488.         Alignment    = 0
  489.         AutoSize     = 0
  490.         BackColor    = QBColor(1)
  491.         BorderStyle  = 0
  492.         Caption      = ""
  493.         DragMode     = 0
  494.         Enabled      = -1
  495.         ForeColor    = QBColor(7)
  496.         Height       = Char(1)
  497.         Left         = Char(38)
  498.         MousePointer = 0
  499.         TabIndex     = 24
  500.         Tag          = ""
  501.         Top          = Char(9)
  502.         Visible      = -1
  503.         Width        = Char(22)
  504.     END
  505.     BEGIN Label Serv8
  506.         Alignment    = 0
  507.         AutoSize     = 0
  508.         BackColor    = QBColor(1)
  509.         BorderStyle  = 0
  510.         Caption      = ""
  511.         DragMode     = 0
  512.         Enabled      = -1
  513.         ForeColor    = QBColor(7)
  514.         Height       = Char(1)
  515.         Left         = Char(38)
  516.         MousePointer = 0
  517.         TabIndex     = 25
  518.         Tag          = ""
  519.         Top          = Char(10)
  520.         Visible      = -1
  521.         Width        = Char(22)
  522.     END
  523. END
  524. '$FORM Netdemo
  525. TYPE SconInfo
  526.       conID1 AS INTEGER
  527.       conID2 AS INTEGER
  528.       conID3 AS INTEGER
  529.       conID4 AS INTEGER
  530.       conID5 AS INTEGER
  531.       conID6 AS INTEGER
  532.       conID7 AS INTEGER
  533.       conID8 AS INTEGER
  534.       server1 AS STRING * 50
  535.       server2 AS STRING * 50
  536.       server3 AS STRING * 50
  537.       server4 AS STRING * 50
  538.       server5 AS STRING * 50
  539.       server6 AS STRING * 50
  540.       server7 AS STRING * 50
  541.       server8 AS STRING * 50
  542. END TYPE
  543. DECLARE SUB GetServerConnectionInfo (Serv AS SconInfo)
  544.  
  545. SUB Command1_Click ()
  546. Servers.HIDE
  547. Netdemo.SHOW
  548. END SUB
  549.  
  550. SUB Form_Load ()
  551. DIM Serv AS SconInfo
  552. CALL GetServerConnectionInfo(Serv)    'Call the Procedure
  553. server1$ = RTRIM$(Serv.server1)
  554. server2$ = RTRIM$(Serv.server2)
  555. server3$ = RTRIM$(Serv.server3)
  556. server4$ = RTRIM$(Serv.server4)
  557. server5$ = RTRIM$(Serv.server5)
  558. server6$ = RTRIM$(Serv.server6)
  559. server7$ = RTRIM$(Serv.server7)
  560. server8$ = RTRIM$(Serv.server8)
  561.  
  562.  
  563. IF Serv.conID1 <> 255 THEN
  564.     S1.Caption = "  1"
  565.     u1.Caption = STR$(Serv.conID1)
  566.     Serv1.Caption = server1$
  567. END IF
  568. IF Serv.conID2 <> 255 THEN
  569.     S2.Caption = "  2"
  570.     u2.Caption = STR$(Serv.conID2)
  571.     Serv2.Caption = server2$
  572. END IF
  573. IF Serv.conID3 <> 255 THEN
  574.     S3.Caption = "  3"
  575.     u3.Caption = STR$(Serv.conID3)
  576.     Serv3.Caption = server3$
  577. END IF
  578. IF Serv.conID4 <> 255 THEN
  579.     S4.Caption = "  4"
  580.     u4.Caption = STR$(Serv.conID4)
  581.     Serv4.Caption = server4$
  582. END IF
  583. IF Serv.conID5 <> 255 THEN
  584.     S5.Caption = "  5"
  585.     u5.Caption = STR$(Serv.conID5)
  586.     Serv5.Caption = server5$
  587. END IF
  588. IF Serv.conID6 <> 255 THEN
  589.     S6.Caption = "  6"
  590.     u6.Caption = STR$(Serv.conID6)
  591.     Serv6.Caption = server6$
  592. END IF
  593. IF Serv.conID7 <> 255 THEN
  594.     S7.Caption = "  7"
  595.     u7.Caption = STR$(Serv.conID7)
  596.     Serv7.Caption = server7$
  597. END IF
  598. IF Serv.conID8 <> 255 THEN
  599.     S8.Caption = "  8"
  600.     u8.Caption = STR$(Serv.conID8)
  601.     Serv8.Caption = server8$
  602. END IF
  603.  
  604. END SUB
  605.  
  606. SUB Form_Unload (Cancel AS INTEGER)
  607. Netdemo.SHOW
  608. END SUB
  609.  
  610.